home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SATAN11.ZIP / HTML / REPORTIN / SATAN_IN.PL < prev    next >
Encoding:
Text File  |  1995-04-01  |  1.0 KB  |  40 lines
  1. #
  2. # Report which hosts are trusted how many times
  3. #
  4. sub sort_numerically {
  5.     $total_trustee_count{$b} <=> $total_trustee_count{$a};
  6. }
  7.  
  8. print CLIENT <<EOF;
  9. <HTML>
  10. <HEAD>
  11. <title> Trust - Trusted Hosts</title>
  12. <LINK REV="made" HREF="mailto:satan\@fish.com">
  13. </HEAD>
  14. <BODY>
  15. <H1><IMG SRC=$HTML_ROOT/images/satan.gif> Trust - Trusted Hosts</H1>
  16. <hr>
  17. <h3>Trusted hosts (by number of trusting hosts).</h3>
  18. <ul>
  19. EOF
  20.  
  21. &make_severity_info();
  22.  
  23. for (sort sort_numerically keys %total_trustee_count) {
  24.     $_dot = exists($severity_host_type_info{$_}) ? "reddot" : "blackdot";
  25.     $_alt = exists($severity_host_type_info{$_}) ? "*" : "-";
  26.     print CLIENT <<EOF;
  27.     <dt><IMG SRC=$HTML_ROOT/dots/$_dot.gif ALT="$_alt"> 
  28.     <A HREF="satan_info_host.pl,$_,">$_</A> -
  29.     <A HREF="satan_results_trusting.pl,$_,trustee_type,"> $total_trustee_count{$_} host(s)</A>
  30. EOF
  31. }
  32.  
  33. print CLIENT <<EOF;
  34. </ul>
  35. <hr> <a href=$HTML_STARTPAGE> Back to the SATAN start page </a> |
  36. <a href=analysis.pl> Back to SATAN Reporting and Analysis </a>
  37. </BODY>
  38. </HTML>
  39. EOF
  40.